home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / lbasic / math1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-02  |  2.7 KB  |  110 lines
  1. 10  COLOR 15,1,15
  2. 20  KEY OFF
  3. 30  REM THIS PROGRAM TESTS A STUDENT ON MULTIPLICATION , DIVISION , ADDITION AND SUTRACTION.THERE ARE FIVE QUESTIONS OF EACH TYPE.
  4. 40  REM N=NUMBER OF THE QUESTIONS
  5. 50  REM T=NUMBER OF POINTS AWARDED
  6. 60  REM A=STUDENTS ANSWER
  7. 70  REM S=STUDENTS SCORE
  8. 80  REM C=STUDENTS MITACHES
  9. 90  REM STUDENTS NAME:MOHAMMED ABDUL RIDAH MOHAMMED.
  10. 100  REM THE DATE:DEC.21.1987
  11. 110  REM NUMBER OF THE CLASS:49/4.THE FIRST COURCE
  12. 120  REM MULTIPLICATION QUESTIONS
  13. 130  CLS
  14. 140   PRINT TAB(14);"YOU WILL BE ASKED FIVE MULTIPLICATION QUESTIONS"
  15. 150  PRINT
  16. 160  PRINT TAB(7);"AND YOU WILL BE GIVEN TWO CHANCES TO GET EACH QUESTION CORRECT"
  17. 170  PRINT
  18. 180  FOR N=1 TO 5
  19. 190  X=INT(RND(1)*10)+1
  20. 200  Y=INT(RND(1)*10)+1
  21. 210  FOR T=2 TO 1 STEP -1
  22. 220  PRINT
  23. 230  PRINT TAB(25);"WHAT DOES ";X;"*";Y;"=";
  24. 240  INPUT A
  25. 250  PRINT
  26. 259  COLOR 31,1,15:BEEP
  27. 260  IF A=X*Y THEN PRINT TAB(19);"VERY GOOD YOU GOT THE RIGHT ANSWER":S=S+1:COLOR 15,1,15:GOTO 340
  28. 270  COLOR 15,1,15:IF A>X*Y THEN PRINT TAB(55);"THE ANSWER IS TOO HIGH"
  29. 290  COLOR 15,1,15 :IF A<X*Y THEN PRINT TAB(4);"THE ANSWER IS TOO LOW"
  30. 300  NEXT T
  31. 310  PRINT
  32. 320  PRINT"YOU GOT THE ANSWER WRONG TWO TIMES,IT IS ";X*Y:C=C+1
  33. 330  S=S+T
  34. 340  NEXT N
  35. 350  PRINT
  36. 360  CLS
  37. 370  PRINT TAB(14);"YOU WILL BE ASKED FIVE DIVISION QUESTIONS"
  38. 380  PRINT
  39. 390  PRINT TAB(7);"AND YOU WILL BE GIVEN TWO CHANCES TO GET QUESTION CORRECT"
  40. 400  PRINT
  41. 410  FOR N=1 TO 5
  42. 420  X=INT(RND(5)*10)+2
  43. 430  Y=INT(RND(2)*4)-2
  44. 440  FOR T=2 TO 1 STEP -1
  45. 450  PRINT
  46. 460  PRINT"WHAT DOES ";X;"/";Y;"=";
  47. 470  INPUT A
  48. 480  PRINT
  49. 490  IF A=X*2/Y THEN PRINT"VERY GOOD YOU GOT THE RIGHT ANSWER":S=S+1:GOTO 570
  50. 500  IF A>X*2/Y THEN PRINT"ANSWER TOO HIGH"
  51. 510  IF A>X*2/Y THEN PRINT"ANSWER TOO LOW"
  52. 520  NEXT T
  53. 530  PRINT
  54. 540  PRINT"YOU GOT THE ANSWER WRONG TWO TIMES,IT IS ";X/Y:C=C+1
  55. 550  PRINT
  56. 560  S=S+T
  57. 570  NEXT N
  58. 580  CLS
  59. 590  PRINT TAB(14);"YOU WILL BE ASKED FIVE ADDITION QUESTIONS"
  60. 600  PRINT
  61. 610  PRINT TAB(7);"AND YOU WILL BE GIVEN TWO CHANCES TO GET QUESTION CORRECT"
  62. 620  PRINT
  63. 630  FOR N=1 TO 5
  64. 640  X=INT(RND(10)*20)+1
  65. 650  Y=INT(RND(10)*20)+1
  66. 660  FOR T=2 TO 1 STEP -1
  67. 670  PRINT
  68. 680  PRINT"WHAT DOES ";X;"+";Y;"=";
  69. 690  INPUT A
  70. 700  PRINT
  71. 710  IF A=X+Y THEN PRINT"VERY GOOD YOU GOT THE RIGHT ANSWER":S=S+1:GOTO 780
  72. 720  IF A>X+Y THEN PRINT"THE ANSWER IS TOO HIGH"
  73. 730  IF A<X+Y THEN PRINT"THE ANSWER IS TOO LOW"
  74. 740  NEXT T
  75. 750  PRINT
  76. 760  PRINT"YOU GOT THE ANSWER WRONG TWO TIMES,IT IS ";X+Y:C=C+1
  77. 770  S=S+T
  78. 780  NEXT N
  79. 790  CLS
  80. 800  PRINT TAB(14);"YOU WILL BE ASKED FIVE SUBTRACTION QUESTIONS"
  81. 810  PRINT
  82. 820  PRINT TAB(7);"AND YOU WILL BE GIVEN TWO CHANCES TO GET QUESTION CORRECT"
  83. 830  PRINT
  84. 840  FOR N=1 TO 5
  85. 850  X=INT(RND(10)*20)+1
  86. 860  Y=INT(RND(10)*20)+1
  87. 870  FOR T=2 TO 1 STEP -1
  88. 880  PRINT
  89. 890  PRINT"WHAT DOES ";X;"-";Y;"=";
  90. 900  INPUT A
  91. 910  PRINT
  92. 920  IF A=X-Y THEN PRINT"VERY GOOD YOU GOT THE RIGHT ANSWER":S=S+1:GOTO 990
  93. 930  IF A>X-Y THEN PRINT"THE ANSWER IS TOO HIGH"
  94. 940  IF A<X-Y THEN PRINT"THE ANSWER IS TOO LOW"
  95. 950  NEXT T
  96. 960  PRINT
  97. 970  PRINT"YOU GOT THE ANSWER WRONG TWO TIMES,IT IS ";X-Y:C=C+1
  98. 980  S=S+T
  99. 990  NEXT N
  100. 1000  PRINT
  101. 1010  PRINT
  102. 1020  PRINT"YOUR CORRECT ANSWERS ARE =";S
  103. 1030  PRINT
  104. 1040  PRINT
  105. 1050  PRINT"YOUR MISTACHES ARE=";C
  106. 1060  B=(S/20)*100
  107. 1070  PRINT
  108. 1080  PRINT"THE PERSENTAGE OF YOUR ANSWERS IS=";B;"%"
  109. 1090  END
  110.